Option Explicit
Sub Q_Sample036()
    ']wޥζMicrosoft Shell Controls And Automation
    Dim mySh As Shell32.Shell
    Set mySh = CreateObject("Shell.Application")
    mySh.MinimizeAll
    mySh.FileRun 			'uv
    'mySh.SetTime 			'uPɶʽv
    'mySh.FindFiles  			'ujMv
    'mySh.TrayProperties			'uu@CP}l\ʽv
    Set mySh = Nothing 			'
End Sub
